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Programme LOTO (6/36 & 6/49) 


REM PROGRAMME DE LOTO 
REH PROGAMMATION 18/11/82 
REM PAR YVES GAGNON ELECTR. 


an REM IL TIRE E NUMEROS AU HA 
SAR 

58 PRINT AT 3,5; ۳:۱ 0۲0۵ PERFE 
ہس‎ EE E Aw 


58 PRINT AT 19,6; “POUR 6/35 EN 


(36) “ , "POUR 6/49 ENTREZ (49 


INPUT U$ 

IF U$="36" THEN GO TO 118 
IF Us="45" THEN GO TO 118 
GO TO 73 

PRINT AT 19,68,” 


LET AL=VAL Us 
PRINT AT 28,8; “NOMBRE DE MI 


INPUT K$ 


8 IF CODE K¥<49 OR CODE 7 


THEN GO TO 148 


168 
178 
182 
GUE 


LET B=VAL K$ 

DIM N(5) 

PRINT AT 17,8;" LES NUMEROS 
L ORDINATEUR”,” PROPOSE SON 


T LES SUIVANTS:” 
198 PRINT * 


239 


PRINT ۳ 


GO SUB 332 

FOR I=1 Tü 5 

PRINT TAB (Z)};N{I); 
BEEP .81,1 

INPUT “" 


IF X<B THEN GO TG 238 
PRINT a FFF BONNE CHANT 


IF INKEY$="" THEN GO TO 358 
CLS 


RUN 

FOR I-1 TO 6 

LET N(I}=INT (RND+A1) +1 

FOR 1=ف‎ Ta I 

IF بي‎ THEN GO TO 438 

IF NíJY)=N 11) THEN GO TO 398 
NEXT ۹1 

NEXT I 

FOR K=1 TO 6-1 

FOR I=i TO 8-K 

IF م٤)‎ 4۳4 ]1+1( THEN GO TO 5 


LET T=Hí(1) i 

LET N(I} - (141) 

LET N(I+1!= 

HEXT I 

NEXT K 

RETURN 

SAVE “LOTO” LINE 18 


Programme: PUZZLE 

@>RE warma TEC 

Ei: ES GAGNO‏ ۲۲۳۲۶ ر8 

DREM AN 
BORDER 5: PAPER 1: INK 7: C 
LET w=14 
LET z=12 
LET 9-343 


LET a=INT IRNDIW) +Z 
LET b=INT (RNDaw) +z 
LET C=INT (RNDIW]) +Z 
LET a$=CHR$ a+CHR$ b+CHR% c 
LET b$=CHR$ b+CHRS C+CHRS a 
LET c$=CHRS C+CHR% a+CHR% 

PRINT INK_7;RT 2,5 Fe 


63 PRINT INK 7;AT 1i,5;"m====; 
EZ ZEE- 
INK 7:RAT 2,5; "E 


65 PRINT AT 4,w/2;aš;TAB w/2;b 
¥; TRB 472; c$ 

66 BEEP .85,1 

78 LET u=INT {RnDz3) +1 

88 LET p=7zu 

188 LET x$=CHRS رو‎ +128) +CHR 
$ ({q-b}+128) +CHR* ((q-c)+123) 
118 LET yš$=CHRš ((q-b)+128)+CHR 
ې‎ ((49-c)3+123) +CHR* ((4-2) +128) 
128 LET zs*=CHR3 tta-0) +123) +CHR 
$ ((9-31+128) 4CHRE i (q—b) +123) 
138 LET d=INT (RHD:#3)4Z ZZ 

148 IF dau THEN GO TO 138 

156 LET a=tw/2)3:d 

168 PRINT AT زر رورس‎ wrlja;zš 
:6T 042 ,q; us 

165 BEEP .85,1 

178 PRINT AT D,P¿X BAT w+l,P;y% 
¿AT W42 کے زر مر‎ 

175 BEEP „85,1 

138 LET L=INT {RNDı3} +1 

198 IF (t=u OR (sd) THEN GO TO 


260 LET (-w/2zt 

216 PRINT AT زارت‎ 2 AT w+1,13x3 
¿AT w+2,1;y% 

215 BEEP „85,1 

226 PRINT AT 18,8; "H";AT 18,15; 
ا‎ AT 13, 22; Ze 

225 FOR 1-1 TO 48 

223 LET p&$=INKEY%$ 

eH ERINI #B,AT 1,0;" VOTRE CHO 


235 IF p$="1" OR p#="2" OR py=" 
3" THEN GO TO 238 

233 NEXT t 

239 GO TO Sea 

248 IF VAL نەم‎ THEN PRINT INVE 
RSE 1; PAPER 7; INK 8;AT 23,2;” 
VOUS AVEZ TROUVE “: INVERSE 8: G 
O TO 688 

538 PRINT INVERSE 1; PAPER 7; I 
NK_0;AT_20,2;” UDUS AVEZ PERDU ” 
i INVERSE 4 

688 BEEP .5,2: PRINT RT 25,26,” 
C'est le “ju 

518 PAUSE 8: RUN 
92232 STOP 
SE SAVE “puzzle” LINE و‎ VERIF 
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Magrelo +2 从 agnelo HA 
+ RECORD" “PLAY” 


CASSETTE CASSETTE 
6ص‎ ORIGINAL 


vo: Le programe co ie, la cassette ھال‎ bost 之 
ا‎ Poor mettre fin zu programme ‚on 


doi] debrenche le 2008. 
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